home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 12
/
Commodore_Disc_12_19xx_-_de.d64
/
lader2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
34 lines
0 a=a+1:ifa=1then load"([195])*",8,1
10 poke53281,0:poke53280,0:printchr$(14)
20 printchr$(147);"[158] [205] e n u e c a l c u l a t i o n v 1.6 "
30 a=7:z=5:gosub490:print"suche [196]ruckerdaten"
40 dr$=" [196]rucker "
50 open1,8,2,dr$+",s,r
60 [132]1,a$
70 [160]1
80 [139]a$[178]"(NULL)ps 801/803"[176]a$[178]"(NULL)tar (NULL)(NULL) 10 "[167]500
100 a[178]0:z[178]5:[141]490:[153]" str$ruckerauswahl "
110 [153]" 1 lenommodore 801 / 803 und kompatible"
120 [153]" 2 (NULL)tar (NULL)(NULL) 10 und kompatible"
130 a[178]10:z[178]15:[141]490:[153]" bitte waehlen !!":[129]w[178]1[164]100:[130]
135 a[178]10:z[178]15:[141]490:[153]" bitte waehlen !!wait":[129]w[178]1[164]100:[130]
150 [161]w$:[139]w$[178]""[167]130
160 [139]w$[178]"1"[167]a$[178]"(NULL)ps 801/803":[137]200
170 [139]w$[178]"2"[167]a$[178]"(NULL)tar (NULL)(NULL) 10 ":[137]200
190 [137]150
200 a[178]3:z[178]15:[141]490:[153]"right$ch speichere deine str$ruckerdaten"
250 [159]15,8,15,"s:"[170]dr$
260 [160]15
300 [159]1,8,2,dr$[170]",s,w
310 print#1,a$
320 close1
400 goto500
490 poke211,a:poke214,z:sys58732:return
500 printchr$(147);"[158] [205] e n u e c a l c u l a t i o n [214] 1.6 ";
530 z=3:a=8:gosub490:print"([195]) 1987 by [195]h. [194]raun
540 [153]" bitte warten, ich lade (NULL)rogramm
550 print" fuer [196]rucker ";a$
600 print"[144]load"+chr$(34)" "+a$+"+"+chr$(34)+",8,1"
620 print"r[213][145][145][145][145][145][145][145][145]"
630 poke631,13:poke632,13:poke633,13:poke198,2